Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data.SqlHelper

Public Class CartasDePorte
    Public Sub Insertar(ByVal ParametrosSQL() As SqlParameter)






        ExecuteNonQuery(My.Settings.MiCadena, CommandType.StoredProcedure, "CartaDePorteInsertar", ParametrosSQL)


        'ExecuteNonQuery(My.Settings.MiCadena, CommandType.StoredProcedure, "CartaDePorteInsertar", _
        'New SqlParameter("@Codigo1", Parametros(0)), _
        'New SqlParameter("@Codigo2", Parametros(1)), _
        'New SqlParameter("@CEE", Parametros(2)), _
        'New SqlParameter("@Cod_Clasificacion", Integer.Parse(Parametros(16))), _
        'New SqlParameter("@CTG", Parametros(3)), _
        'New SqlParameter("@FechaDeCarga", Parametros(4)), _
        'New SqlParameter("@FechaDeVencimiento", Parametros(5)), _
        'New SqlParameter("@FechaDeCosecha", Parametros(17)), _
        'New SqlParameter("@FechaDeDescarga", Parametros(38)), _
        'New SqlParameter("@Contrato", Parametros(18)), _
        'New SqlParameter("@PesoBruto", Parametros(19)), _
        'New SqlParameter("@PesoTara", Parametros(20)), _
        'New SqlParameter("@PesoNeto", Parametros(21)), _
        'New SqlParameter("@CargaPesadaEnDestino", Parametros(22)), _
        'New SqlParameter("@DeclaracionDeCalidad", Parametros(23)), _
        'New SqlParameter("@Conforme", Parametros(24)), _
        'New SqlParameter("@Condicional", Parametros(25)), _
        'New SqlParameter("@Cod_Titular", Parametros(6)), _
        'New SqlParameter("@DireccionProcedencia", Parametros(26)), _
        'New SqlParameter("@EstablecimientoProcedencia", Parametros(27)), _
        'New SqlParameter("@Cod_LocalidadProcedencia", Integer.Parse(Parametros(28))), _
        'New SqlParameter("@Cod_Intermediario", Integer.Parse(Parametros(7))), _
        'New SqlParameter("@Cod_RemitenteComercial", Integer.Parse(Parametros(8))), _
        'New SqlParameter("@Cod_Corredor", Integer.Parse(Parametros(9))), _
        'New SqlParameter("@Cod_Representante", Integer.Parse(Parametros(10))), _
        'New SqlParameter("@Cod_Destinatario", Integer.Parse(Parametros(11))), _
        'New SqlParameter("@Cod_Destino", Integer.Parse(Parametros(12))), _
        'New SqlParameter("@Cod_Transportista", Integer.Parse(Parametros(13))), _
        'New SqlParameter("@Cod_Chofer", Integer.Parse(Parametros(14))), _
        'New SqlParameter("@TurnoDeDescarga", Parametros(29)), _
        'New SqlParameter("@FechaDeArribo", Parametros(37)), _
        'New SqlParameter("@ObservacionesDelGrano", Parametros(30)), _
        'New SqlParameter("@ObservacionesDeLaDescarga", Parametros(43)), _
        'New SqlParameter("@Km", Parametros(33)), _
        'New SqlParameter("@PatenteCamion", Parametros(31)), _
        'New SqlParameter("@PatenteAcoplado", Parametros(32)), _
        'New SqlParameter("@FletePagado", Parametros(34)), _
        'New SqlParameter("@FleteAPagar", Parametros(35)), _
        'New SqlParameter("@Tarifa", Parametros(36)), _
        'New SqlParameter("@Turno", Parametros(39)), _
        'New SqlParameter("@IdRecepcion", IdRecepcion))
    End Sub
End Class
